home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / MINUET.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  1.3 KB  |  47 lines
  1. 10  DIM TUNE$(4)
  2. 20  CLS:WIDTH 40:KEY OFF
  3. 30  LOCATE 11,17:PRINT "Minuet"
  4. 40  LOCATE 12,15:PRINT "J.S. Bach"
  5. 90  REM '--Read music from data-------------------------------------------
  6. 100  FOR MEASURE=1 TO 32
  7. 110  READ NOTES$
  8. 120  TUNE$(MEASURE\8)=DUNE$(MEASURE\8)+NOTES$
  9. 130  NEXT MEASURE
  10. 190  '--Play the tune-----------------------------------------------------
  11. 200  PLAY "xTUNE$(0); xTUNE$(1); xTUNE$(2); xTUNE$(3); xTUNE$(4);"
  12. 300  FOR I=1 TO 1000:NEXT I
  13. 400  CHAIN"A:CLASSICS.BAS"
  14. 1000  '--Music, measure by measure----------------------------------------
  15. 1010  DATA T110 L8 MS D4 MN O3 G A B O4 C
  16. 1020  DATA D4 O3 MS G4 MN G4
  17. 1030  DATA O4 MS E4 MN C D E F#
  18. 1040  DATA G4 O3 MS G4 MN G4
  19. 1050  DATA MS O4 C4 MN D C O3 B A
  20. 1060  DATA MS B4 MN O4 C O3 B A G
  21. 1070  DATA MS F#4 MN G A B G
  22. 1080  DATA B4 A2
  23. 1090  DATA O4 MS D4 MN O3 G A B O4 C
  24. 1100  DATA D4 O3 MS G4 G4
  25. 1110  DATA O4 E4 MN C D E F#
  26. 1120  DATA G4 O3 MS G4 G4
  27. 1130  DATA O4 C4 MN D C O3 B A
  28. 1140  DATA B4 O4 C O3 B A G
  29. 1150  DATA A4 B A G F#
  30. 1160  DATA G2.
  31. 1170  DATA O4 B4 G A B G
  32. 1180  DATA A4 D E F# D
  33. 1190  DATA G4 E F# G D
  34. 1200  DATA C#4 O3 B O4 C# O3 A4
  35. 1210  DATA A B O4 C# D E F#
  36. 1220  DATA MS G4 MN F#4 E4
  37. 1230  DATA MS F#4 O3 A4 O4 C#4
  38. 1240  DATA MN D2.
  39. 1250  DATA D4 O3 G F# G4
  40. 1260  DATA O4 E4 O3 G F# G4
  41. 1270  DATA O4 D4 C4 O3 B4
  42. 1280  DATA A G F# G A4
  43. 1290  DATA D E F# G A B
  44. 1300  DATA O4 C4 O3 B4 A4
  45. 1310  DATA B O4 D O3 G4 F#4
  46. 1320  DATA G2.
  47.